home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / pix / anim / Revenge.lha / DELETE-ICONS / DELETE-MAINVIEW next >
Text File  |  1994-08-02  |  623b  |  29 lines
  1. ECHO "You are about to delete MAINVIEW. If you do not want"
  2. ECHO "   to delete MAINVIEW, select N at the requester."
  3. ECHO ""
  4. echo "*NDo you wish to continue ?  Y= Yes / N= No " noline
  5. unset query
  6. set >NIL: query ?
  7. if NOT "$query" EQ "Y"
  8. skip keyexit3
  9. endif
  10. endif
  11. ASSIGN MAINACTOR: SYS:C
  12. ECHO ""
  13. ECHO ""
  14. ECHO "Select the partition name where ANIMS is found."
  15. echo "*NDrive Partition?  WORK: = 1   /   DH0: = 2 " noline
  16. unset query
  17. set >NIL: query ?
  18. if NOT "$query" EQ "1"
  19. skip keyexit2
  20. endif
  21. endif
  22. DELETE ALL WORK:ANIMS/MAINACTOR/
  23. skip keyexit3
  24. lab keyexit2
  25. DELETE ALL SYS:ANIMS/MAINACTOR/
  26. skip keyexit3
  27. lab keyexit3
  28. endcli
  29.